home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / SHIFTING & REVERSING 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  518b  |  12 lines
  1. 5  REM  REQUIRES BLOCK ROUTINES $911A AND TRUCK+1 #144
  2. 10  HGR : CALL 37799: POKE 251,144
  3. 20  POKE 252,130: POKE 253,144: POKE 254,6: POKE 255,0: CALL 37679
  4. 50  FOR X = 0 TO 33
  5. 60  FOR Y = 1 TO 7: CALL 37390: NEXT : REM  SHIFT THROUGH 1 BYTE
  6. 70  CALL 37296: REM  INCREMENT HR/HL
  7. 80  NEXT : CALL 37281: CALL 37606: REM  REVERSE SHAPE
  8. 100  FOR X = 0 TO 33
  9. 110  FOR Y = 1 TO 7: CALL 37301: NEXT : REM  SHIFT THROUGH 1 BYTE/LEFT
  10. 120  CALL 37281: REM  DECREMENT HR/HL
  11. 130  NEXT : CALL 37606: REM  REVERSE SHAPE
  12. 140  GOTO 50